(mouse-drag-region): Bind last-command, not this-command.

diff --git a/lisp/mouse.el b/lisp/mouse.el
index b447bff5dbec9b88c1cd25a8dec60681ce51dbf9..5d4dea37c70d2630b425c411520ff62ba091df7b 100644 (file)
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -252,7 +252,7 @@ release the mouse button.  Otherwise, it does not."
            (if (memq fun '(mouse-set-region mouse-set-point))
                (if (not (= (overlay-start mouse-drag-overlay)
                            (overlay-end mouse-drag-overlay)))
-                   (let (this-command)
+                   (let (last-command)
                      (push-mark (overlay-start mouse-drag-overlay) t t)
                      (goto-char (overlay-end mouse-drag-overlay))
                      (copy-region-as-kill (point) (mark t)))